unit Stroke;

interface

uses Colors, Point;

type
    TStroke = class
        private
            strokeRGB : TRGBA;
            strokePath : TPath;
        public
            constructor Create(RGB: TRGBA; path : TPath);
            function GetColor() : TRGBA;
            function GetPath() : TPath;
            //procedure GetPath(pointeur : TRGBTriple);
        protected
        published
    end;
    TStrokes = array of Tstroke;

implementation

constructor Tstroke.Create(RGB:  TRGBA;  path : TPath);
    var
        i: integer;
    begin
        //inherited create;
        strokeRGB.r := RGB.r;
        strokeRGB.g := RGB.g;
        strokeRGB.b := RGB.b;
        SetLength(strokePath, length(path));
        for I := 0 to length(path)-1 do
            begin
                strokePath[i]:=path[i];
            end;
    end;

function TStroke.GetColor() : TRGBA;
    begin
        result := strokeRGB;
    end;

function TStroke.GetPath() : TPath;
    begin
       result :=  strokePath;
    end;

end.
